求高人给看看，实在是找不出问题了

liuhao5806

自学新手，做一个订单管理程序：

  

子程序名	返回值类型	公开	备 注
_新增_按钮_被单击

变量名	类 型	静态	数组	备 注
sql	文本型
列数	整数型
行数	整数型
表头	文本型
数据	文本型
内容	文本型
未加	整数型
加入	整数型

数据库连接1.连接Access (读配置项 (配置文件路径, “订单信息数据库路径”, “订单信息数据库”, ), “”)
记录集1.置连接 (数据库连接1)
记录集1.打开 (“cost”, 2, )
判断循环首 (高级表格1.取数据 (1, 1) ＝ “”)
信息框 (“请在第一条数据前输入项目名称”, 0, , )
返回 ()
判断循环尾 ()
' 加增加表头字段语句
计次循环首 (高级表格1.列数, 列数)
内容 ＝ 高级表格1.取数据 (0, 列数 － 1)
sql ＝ “alter table cost add column ” ＋ 内容 ＋ “ ” ＋ “nvarchar”
如果 (记录集1.打开 (sql, 1, ) ＝ 真)
加入 ＝ 加入 ＋ 1
未加 ＝ 未加 ＋ 1

计次循环尾 ()
信息框 (“共” ＋ 到文本 (高级表格1.列数) ＋ “列，其中有” ＋ 到文本 (未加) ＋ “个字段未能添加，请检查是否重复添加或原EXCEL文件是否有半角符号（如英文状态下输入的括号等”, #警告图标, , )
加入 ＝ 0
未加 ＝ 0
计次循环首 (高级表格1.行数 － 1, 行数)
输出调试文本 (记录集1.添加 ())
计次循环首 (高级表格1.列数, 列数)
表头 ＝ 高级表格1.取数据 (0, 列数 － 1)
数据 ＝ 高级表格1.取数据 (行数, 列数 － 1)
如果 (记录集1.写文本 (表头, 数据))
加入 ＝ 加入 ＋ 1
未加 ＝ 未加 ＋ 1
记录集1.到下一条 ()
列数 ＝ 列数 ＋ 1
计次循环尾 ()
行数 ＝ 行数 ＋ 1
计次循环尾 ()
信息框 (“成功保存” ＋ 到文本 (加入) ＋ “，失败” ＋ 到文本 (未加), 0, , )

i支持库列表	支持库注释
eDB	数据库操作支持库
eGrid	高级表格支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 eGrid<br /> <br /> .子程序 _新增_按钮_被单击<br /> .局部变量 sql, 文本型<br /> .局部变量 列数, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 表头, 文本型<br /> .局部变量 数据, 文本型<br /> .局部变量 内容, 文本型<br /> .局部变量 未加, 整数型<br /> .局部变量 加入, 整数型<br /> <br /> 数据库连接1.连接Access (读配置项 (配置文件路径, “订单信息数据库路径”, “订单信息数据库”, ), “”)<br /> 记录集1.置连接 (数据库连接1)<br /> 记录集1.打开 (“cost”, 2, )<br /> .判断循环首 (高级表格1.取数据 (1, 1) ＝ “”)<br />     信息框 (“请在第一条数据前输入项目名称”, 0, , )<br />     返回 ()<br /> .判断循环尾 ()<br /> ' 加增加表头字段语句<br /> .计次循环首 (高级表格1.列数, 列数)<br />     内容 ＝ 高级表格1.取数据 (0, 列数 － 1)<br />     sql ＝ “alter table cost add column ” ＋ 内容 ＋ “ ” ＋ “nvarchar”<br />     .如果 (记录集1.打开 (sql, 1, ) ＝ 真)<br />         加入 ＝ 加入 ＋ 1<br />     .否则<br />         未加 ＝ 未加 ＋ 1<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 信息框 (“共” ＋ 到文本 (高级表格1.列数) ＋ “列，其中有” ＋ 到文本 (未加) ＋ “个字段未能添加，请检查是否重复添加或原EXCEL文件是否有半角符号（如英文状态下输入的括号等”, #警告图标, , )<br /> 加入 ＝ 0<br /> 未加 ＝ 0<br /> .计次循环首 (高级表格1.行数 － 1, 行数)<br /> <br />     输出调试文本 (记录集1.添加 ())<br /> <br />     .计次循环首 (高级表格1.列数, 列数)<br />         表头 ＝ 高级表格1.取数据 (0, 列数 － 1)<br />         数据 ＝ 高级表格1.取数据 (行数, 列数 － 1)<br />         .如果 (记录集1.写文本 (表头, 数据))<br />             加入 ＝ 加入 ＋ 1<br />         .否则<br />             未加 ＝ 未加 ＋ 1<br />         .如果结束<br />         记录集1.到下一条 ()<br />         列数 ＝ 列数 ＋ 1<br />     .计次循环尾 ()<br />     行数 ＝ 行数 ＋ 1<br /> <br /> .计次循环尾 ()<br /> 信息框 (“成功保存” ＋ 到文本 (加入) ＋ “，失败” ＋ 到文本 (未加), 0, , )

问题：表头字段能正常添加，内容就是写不进去，调试文本发现记录集1.添加（）就是假，前面也连接了数据库，不明白为什么就是添加不上，求哪位高人给指点一下。

liuhao5806

飘在空气里 发表于 2019-4-19 02:49
在写文本下一行加入命令

不行，记录集.添加（）就是假，好像添加都没添进去……

飘在空气里

在写文本下一行加入命令 <记录集.更新>