|
本帖最后由 luhao 于 2009-9-3 18:52 编辑
TXSQL = "SELECT 备料订单表明细.流水单号ID, 备料订单表明细.销售订单, 备料订单表明细.排序, 备料订单表明细.删除 " & _
"FROM 备料订单表明细 "
' "WHERE 备料订单表明细.流水单号ID=77 ...
asklove 发表于 2009-9-3 14:06
测试好,传例是理想当然的,但现在的问题未解决..........
Private Sub Form_Load()
Dim TXSQL As String
TXSQL = "SELECT 备料订单表明细.流水单号ID, 备料订单表明细.销售订单, 备料订单表明细.排序, 备料订单表明细.删除 " & _
"FROM 备料订单表明细 " & _
"WHERE 备料订单表明细.流水单号ID = BL-000001" '[Forms]![frm-ctGrid测试]![tx流水单号]
TXSQL = Replace(TXSQL, "BL-000001", Me.tx流水单号)
Call LoadctGrid(ctGrid1, "\料房管理", TXSQL)
End Sub
提示 :楼2的图片,参数不足... |
|