Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
当基础表“标志”列内数据相同的行,写入一行标志到合并表,并且把基础表内“标志”列相同的行的“备注”合并到刚才写入到合并表的行的备注内!!!
谢谢
下载信息 [文件大小: 下载次数: ] | |
![]() |
哈哈,六尾狐提这样的问题,好像有点太哪个了。
'基础表DataColChanged事件
If e.DataCol.Name = "标志" Then
If e.DataRow.IsNull("标志") = False Then
Dim dr As DataRow = DataTables("合并表").Find("标志 = '" & e.NewValue & "'")
If dr Is Nothing Then
Dim r As Row = Tables("合并表").AddNew
r("标志") = e.NewValue
Else
dr("备注") = DataTables("基础表").GetComboListString("备注","[标志] = '" & e.DataRow("标志") & "'").Replace("|",",")
End If
End If
End If
窗口按钮如何实现?谢谢 |
窗口按钮如何实现?谢谢 |
窗口按钮如何实现?谢谢 |
还是留着你慢慢折腾吧。
如果实在不会写,将二楼的代码放到表事件中,在窗口写个重置列总会吧。
下载信息 [文件大小: 下载次数: ] | |
![]() |
下载信息 [文件大小: 下载次数: ] | |
![]() |