标题：把没有加载的表列出来，然后勾选表进行加载，请指点

11楼

有点蓝 发表于：2024/5/20 16:46:00

http://www.foxtable.com/webhelp/topics/0669.htm

12楼

lrh9537 发表于：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

13楼

有点蓝 发表于：2024/5/21 8:59:00

合并导入使用这个：http://www.foxtable.com/webhelp/topics/0685.htm

14楼

lrh9537 发表于：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楼

有点蓝 发表于：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

16楼

lrh9537 发表于：2024/5/21 9:56:00

DataTables("表A").DataRows.Clear

表A换成n怎么改写？

17楼

有点蓝 发表于：2024/5/21 9:57:00

DataTables(n).DataRows.Clear

共17 条记录, 每页显示 10 条, 页签: [1] [2]