ctGrid新特破，齐来研究........

luhao

活用ctGrid，完全可以代替子窗体，比子窗体更完美...........
第一代码:
           Private Sub Form_Load()
    Dim TXSQL As String
    TXSQL = "SELECT 备料订单表明细.流水单号ID, 备料订单表明细.销售订单, 备料订单表明细.排序, 备料订单表明细.删除 " & _
            "FROM 备料订单表明细 "
               
    Call LoadctGrid(ctGrid1, "\料房管理.mdb", TXSQL)
End Sub

luhao

续................
Private Sub Form_Load()
    Dim TXSQL As String
    TXSQL = "SELECT 备料订单表明细.流水单号ID, 备料订单表明细.销售订单, 备料订单表明细.排序, 备料订单表明细.删除 " & _
            "FROM 备料订单表明细 "
           ' "WHERE 备料订单表明细.流水单号ID= " & Me.tx流水单号.Value   
            
    Call LoadctGrid(ctGrid1, "\料房管理.mdb", TXSQL)
End Sub

liwen

会不会像ACCESS能导出查询而不能导出查询的SQL语句一样?尝试使用查询试试.

luhao

3# liwen
在楼2中，在查询表查数据是没问题的，可以自由输入“流水单号ID”筛选。
但CTGrid数据源指为有变量的查询表就和自定义的查询一样出错
希望有能人，指教...........

asklove

我以前好像碰到过这种问题,后来用替换的方法(Replace)
如：TXSQL =replace(TXSQL ,from!frm_ctgrid测试!TX流水单号,Me.tx流水单号)

或者
WHERE 备料订单表明细.流水单号ID=77777(随便设一个ID，然后替换成tx流水单号)

你要不试试

luhao

5# asklove
用WHERE 备料订单表明细.流水单号ID=77777 设个常量可以筛选查询，但提到的：
(随便设一个ID，然后替换成tx流水单号)，就不明白了，请问如何设定.........

sgrshh29

不知道加个参数行不行？
TXSQL = "PARAMETERS Me.tx流水单号 Short; SELECT 备料订单表明细.流水单号ID, 备料订单表明细.销售订单, 备料订单表明细.排序, 备料订单表明细.删除 FROM 备料订单表明细 WHERE 备料订单表明细.流水单号ID= " & Me.tx流水单号

sgrshh29

我以前好像碰到过这种问题,后来用替换的方法(Replace)
如：TXSQL =replace(TXSQL ,from!frm_ctgrid测试!TX流水单号,Me.tx流水单号)

或者
WHERE 备料订单表明细.流水单号ID=77777(随便设一个ID，然后替换成tx流水 ...
asklove 发表于 2009-9-3 09:09

这个方法也不错。

djt

参数不足说明SQL语句中有变量需要输入数据，难道这么好的控件竟然不支持参数？
Call LoadctGrid(ctGrid1, "\料房管理.mdb", TXSQL，这里应该是输入参数的地方)
我写的函数都是把参数放在最后一个地方

asklove

TXSQL = "SELECT 备料订单表明细.流水单号ID, 备料订单表明细.销售订单, 备料订单表明细.排序, 备料订单表明细.删除 " & _
            "FROM 备料订单表明细 "
           ' "WHERE 备料订单表明细.流水单号ID=777777 "
TXSQL =replace(TXSQL ,“777777”,Me.tx流水单号) 就这意思

不管什么方法，你能整出来就行，记得做好放例子，学习学习啊