以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  区别  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54080)

--  作者:lshshlxsh
--  发布时间:2014/7/21 15:32:00
--  区别

Tables("窗口1_table1").DataSource =dtb.BuildDataSource()
Tables("窗口1_table1").DataSource =DataTables("统计")

 

请问一下这上面两句代码有什么区别?

 

(全局表事件代码)

 

If  e.DataTable.Name ="窗口1_table1" Then
Case
"型号","规格"
Dim dr As DataRow = e.DataRow
If dr.IsNull("型号") = False AndAlso dr.IsNull("规格") = False Then
If e.DataTable.Compute("Count([_Identify])","型号 = \'" & dr("型号") & "\' And 规格 = \'" & dr("规格") & "\'") > 1 Then
MessageBox.Show(
"已经存在相同型号和规格的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.
DataRow(e.DataCol.Name) = e.OldValue \'取消输入
End If
End
If
end if

 

为什么使用第一件下面这段代码会提示,使用第二句下面那段代码没反应?

 

 

[此贴子已经被作者于2014-7-21 15:32:20编辑过]

--  作者:Bin
--  发布时间:2014/7/21 15:33:00
--  
用第二句,你If  e.DataTable.Name ="窗口1_table1" Then 这句代码就要换成

If  e.DataTable.Name ="统计" Then

--  作者:lshshlxsh
--  发布时间:2014/7/21 15:36:00
--  
我换了也没用
--  作者:Bin
--  发布时间:2014/7/21 15:37:00
--  
在全局代码,最上面加入msgbox(1)测试看看是否有触发全局事件
--  作者:lshshlxsh
--  发布时间:2014/7/21 15:46:00
--  
没有反应
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.table

[此贴子已经被作者于2014-7-21 15:48:25编辑过]

--  作者:Bin
--  发布时间:2014/7/21 15:50:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.table


--  作者:lshshlxsh
--  发布时间:2014/7/21 15:58:00
--  

谢谢BIN.

请问一下使用  Tables("窗口1_table1").DataSource =DataTables("统计")  代码该怎么写?

你刚才这个例子弹出的2

[此贴子已经被作者于2014-7-21 15:58:00编辑过]

--  作者:Bin
--  发布时间:2014/7/21 16:02:00
--  
统一写到窗口表事件里面去好了
--  作者:lshshlxsh
--  发布时间:2014/7/21 16:05:00
--  
我用的是临时表,现在都写在全局表事件
--  作者:Bin
--  发布时间:2014/7/21 16:08:00
--  
看8楼