主题：请教实现方案

问题1：定义一个数组，然后循环引用，参考 http://www.foxtable.com/help/topics/0216.htm

 

问题2：可以先ping一下机子是否开启，再连接一下数据源测试

 

http://www.foxtable.com/help/topics/1401.htm

http://www.foxtable.com/help/topics/1944.htm

 

问题3：你不是已经写正确了么？直接写dd便可

 

问题4：判断表名，可以这样，用getTableNames， 参考 http://www.foxtable.com/help/topics/1943.htm

 

问题5：这个，就有点麻烦了。这样你就不能直接合并数据了。你需要多加一个临时表，把一个表的内容合并进临时表以后，修改来源列的内容，然后再合并到试验临时数据表

 

-----------------最后加一句，这些都是很简单的问题，楼主的基础没有打牢，先看看帮助，扩展下思路。

 回复10楼，可以，很基础的。

 

比如

 

For i As Integer = 194 To 197

      MsgBox("M" & i)

Next

 如果不是连续的，就这样

 

Dim Names() As String = {"M194", "M200", "M199"}

 回复13楼，直接这样写便可

 

If Connections.TryConnect(Connections("M197").ConnectionString) = False Then
    MessageBox.Show("数据源无法连通!")
End If

 这样写

 

For Each dr1 As DataRow In DataTables("试验临时数据").Select("来源 is null or 来源 = ''")
    dr1("来源") = cn.Name
    dr1("日期") = st
Next

很简单

 

If cn.GetTableNames.Contains(dd) Then

     '在此需判断 目标表 dd 是否存在,但不知如何写代码
End If

 回复21楼，是在合并数据的时候不想合并某个些数据？

 

 方法一：合并以后，马上处理一下；

 

 方法二：未合并之前，剔除对应数据。

 

 自己做一下，做不好的话，请上传一个例子说明情况。

 回复23楼，你的意思是给表添加一个 序号列，自动填入序号？

 

 方法一：http://www.foxtable.com/help/topics/2403.htm

 

 方法二：代码类似

 

For Each ly As String In DataTables("试验临时数据").GetValues("来源")
    Dim i As Integer = 1
    For Each dr As DataRow In DataTables("试验临时数据").Select("来源 = '" & ly & "'", "_Sortkey")
        dr("序号") = i
        i += 1
    Next
Next

 不清楚你要做什么代码大致这样做。

 

For Each ly As String In DataTables("试验临时数据").GetValues("来源")
    Dim d1, d2, d3 As DataRow
    d1 = DataTables("试验临时数据").find("来源 = '" & ly & "'", "数据序 desc", 0)
    If d1("有效序") Mod 3 <> 0 Then
        d2 = DataTables("试验临时数据").find("来源 = '" & ly & "'", "数据序 desc", 1)
        If d2("有效序") Mod 3 <> 0 Then
            d2.Delete
        End If
        d1.Delete
    End If
Next

 呃.....你把aa定义成Integer了，要用double

 

Dim aa As Double
aa = 5.1
Output.Show (Math.Ceiling(aa))