以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  调用存储过程  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118122)
--  作者：lycliu
--  发布时间：2018/4/25 15:12:00
--  调用存储过程
Dim id As WinForm.TextBox = e.Form.Controls("装箱id值")
Dim xm As WinForm.TextBox = e.Form.Controls("箱码值")
Dim wl As WinForm.TextBox = e.Form.Controls("物料值")
Dim tab As WinForm.Table = Forms("装箱单资料维护").Controls("Table1")

Dim dt As DataTable
Dim cmd As new SQLCommand
cmd.c
cmd.CommandText = "exec Zm_AutoNumber &id.value,& xm.value,& wl.value"
\'cmd.CommandText = "exec Zm_AutoNumber A1,围壁,BCD123"  \'调用存储过程
dt = cmd.ExecuteReader()
If dt.DataRows.Count >0 Then
    tab.Table.DataSource= dt
End If
我这样子调用三个个参数报错，然后我直接把三个参数赋值就没有错，怎么回事呢？
--  作者：有点甜
--  发布时间：2018/4/25 15:27:00
--  

改成

 

cmd.CommandText = "exec Zm_AutoNumber \'" & id.value & "\',\'" & xm.value & "\',\'" & wl.value & "\'"

msgbox(cmd.CommandText)
--  作者：lycliu
--  发布时间：2018/4/25 16:08:00
--  
ok，上面的问题解决了，追问一下，
1，什么时候是用这种格式\' " & & "\'的呀
2，接上面代码
Dim tab As WinForm.Table = Forms("装箱单资料维护").Controls("Table1")
dt = cmd.ExecuteReader()
If dt.DataRows.Count >0 Then
    tab.Table.DataSource= dt
End If
我这个时候已经生成一个临时表了嘛，我能不能动态的赋值给Forms("装箱单资料维护").Controls("Table1")这个窗口里面的表呢？
上面我写的代码并不能动态加载
--  作者：有点甜
--  发布时间：2018/4/25 16:34:00
--  

1、参考

 

http://www.foxtable.com/webhelp/scr/1284.htm

 

http://www.foxtable.com/webhelp/scr/2919.htm

 

2、msgbox(dt.DataRows.Count) 看看弹出什么。代码应该是没问题的。你table1设置成副本表（sqltable/sqlquery）了没有