- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助 容器中表的判断 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102564)
-- 发布时间：2017/6/22 12:09:00
-- 求助 容器中表的判断
老师:
您好!
此主题相关图片如下：1.png
下边四个按键可以分别动态加入容器不同的表
上边的按键对应容器中的表进行"新增"或"删除"
怎样才能判断当前表?
If CurrentTable.DataTable.Name = "表A" Then
Dim dlgi As New OpenFileDialog
Dim pthi As String = ProjectPath & "Attachments\\"
dlgi.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
dlgi.MultiSelect = True
If dlgi.ShowDialog = DialogResult.OK Then
For Each file As String In dlgi.FileNames
Tables("表A").AddNew
Dim r As Row = Tables("表A").Current
r("图片") = r("编号") & ".jpg"
FileSys.CopyFile(file,pthi & r("编号"),True)
Next
End If
elseIf CurrentTable.DataTable.Name = "表B" Then
Dim dlgi As New OpenFileDialog
Dim pthi As String = ProjectPath & "Attachments\\"
dlgi.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
dlgi.MultiSelect = True
If dlgi.ShowDialog = DialogResult.OK Then
For Each file As String In dlgi.FileNames
Tables("表B").AddNew
Dim r As Row = Tables("表B").Current
r("图片") = r("编号") & ".jpg"
FileSys.CopyFile(file,pthi & r("编号"),True)
Next
End If
End If
点击新增没反应,都是同一个主表的不同关联表,不知是不是判断出问题?
请老师指教!
谢谢!
[此贴子已经被作者于2017/6/22 12:19:34编辑过]
-- 发布时间：2017/6/22 12:41:00
--
直接判断不行
msgbox(currentTable.Name)
Dim nr As row = currentTable.AddNew
-- 发布时间：2017/6/22 14:28:00
--
谢谢老师!!!
-- 发布时间：2017/6/22 18:49:00
--
老师:
您好!
窗口中有几个Button
点击Button1 选中表A
点击Button2就先中表B
请问代码怎样写?
谢谢!
-- 发布时间：2017/6/22 19:40:00
--
选中表控件，参考
e.Form.Controls("Table1").Select
-- 发布时间：2017/6/22 19:48:00
--
谢谢老师!
不是表控件,
当前表是表A
点击按钮后,当前表就是表B
请老师指教!!!
我搞了好久都搞不惦,请指教!!!
谢谢!!!
-- 发布时间：2017/6/23 0:22:00
--
1、maintable = Tables("表a")
2、Tables("表a").Focus
-- 发布时间：2017/6/23 22:43:00
--
谢谢老师!