Foxtable(狐表) → 用户栏目 → 专家坐堂 → 把没有加载的表列出来，然后勾选表进行加载，请指点


  共有242人关注过本帖树形打印复制链接

主题：把没有加载的表列出来，然后勾选表进行加载，请指点
帅哥，在线噢！
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107163 积分：545064 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/20 16:46:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2819 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/5/21 8:23:00 [只看该作者]

接上面的复选框，如我想把复选框内表A新的数据更新合并导入过来，下面的代码怎么加工到一块？

Dim ckl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim nms As New List(Of String)
For i As Integer = 0 To ckl.Items.count - 1 
    If ckl.GetItemChecked(i) Then
        nms.Add(ckl.Items(i))
    End If

合并导入：
    If CurrentTable.DataTable.Name = "表A" Then 
        Dim Result As DialogResult
        Result = MessageBox.Show("请注意，你的数据将要先全部清除，清除后再导入新的数据，现在开始吗？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            DataTables("表A").DataRows.Clear
            MessageBox.Show("数据已全部清除,现在开始导入新数据？", "提示")
            Syscmd.Table.QuickMerge()
            MessageBox.Show("数据已导入,请注意保存。", "提示")
        Else
            MessageBox.Show("数据未导入，请重新操作。", "提示")
        End If
    End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107163 积分：545064 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/21 8:59:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2819 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/5/21 9:13:00 [只看该作者]

麻烦指导下代码怎么写？
从复选框中选中“表A”，然后合并导入数据
Dim ckl As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim nms As New List(Of String)
For i As Integer = 0 To ckl.Items.count - 1 
    If ckl.GetItemChecked(i) Then
        nms.Add(ckl.Items(i))
    End If
If nms.Count = 0 Then
    MessageBox.Show("至少要选择一个表","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
中间怎么连起来？如果勾选的是“表A”,

Dim mg As New Merger
mg.SourcePath = "c:\data\表A.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "表A" '指定要合并的表
mg.DataTableName = "表A" '指定接收数据的表
mg.Merge() '开始合并

 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107163 积分：545064 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/21 9:27:00 [只看该作者]

for each n as string in nms
Dim mg As New Merger
mg.SourcePath = "c:\data\" & n & ".xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = n & "$ '指定要合并的表
mg.DataTableName = n '指定接收数据的表
mg.Merge() '开始合并
next
 回到顶部
帅哥哟，离线，有人找我吗？
lrh9537
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：327 积分：2819 威望：0 精华：0 注册：2012/11/16 12:19:00 		  发帖心情 Post By：2024/5/21 9:56:00 [只看该作者]

DataTables("表A").DataRows.Clear
表A换成n怎么改写？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107163 积分：545064 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/5/21 9:57:00 [只看该作者]

DataTables(n).DataRows.Clear
 回到顶部
总数 17 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询