http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=42378&replyID=&skin=1这是程版的自动更新表结构的贴子。
我按照程版的方法试了好多次,总是失败,程版能再费个心做个实例不。那个例子只有一个txt文件,我也查不出来原因在哪里。
在这个例子中,我没有使用自定义函数,做了一个窗口,里面有一个按钮。
这一段
Dim uptext As String = ProjectPath & "\Attachments\addtable.txt"
If FileSys.FileExists(uptext) = True '判断addtable.txt文件是否存在
Dim s As String = FileSys.ReadAllText(uptext ,Encoding.Default) '读取该文本文件的内容
s = s.Replace(chr(10),"").Replace(chr(13),";").Replace(chr(-23636),",") '支持英文分号和回车分隔多表,支持中英文逗号分割字符列属性和指定长度,以避免手误
Dim Values(),Value1s(),Value2s() As String '定义字符型数组用于存储多表分割字符串?表名称?列名称和列属性
Values = s.split(";") '分割多行内容,将分割的内容添加到数组
'-----------------------------------------------以下代码创建表
For Index As Integer = 0 To Values.Length - 1 '循环遍历数组
Value1s = Values(Index).split("/") '提取表名称到数组,0是表名,1是列组
Dim Builder As New ADOXBuilder '定义一个新的ADOXBuilder '这一段如果不加数据源名称,则会增加txt文本中的表到内部数据表,但不会增加到共享数据源的表中;而如果把它改为Dim Builder As New ADOXBuilder("CS001"),则会提示如下的错误
.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,窗口1,Button1,Click
详细错误信息:
在对应所需名称或序数的集合中,未找到项目。
然后在外部数据源中,可以看到共享数据库中增加了“车辆管理”的表,但没有增加“产品明细”的表,而且“车辆管理”表没有数据列。
这是为什么呢?
[此贴子已经被作者于2015/4/22 21:31:32编辑过]