VB 不断向文件添加数字问题

我没看清楚，但我加了。

private sub command1 click（） 按钮连续添加到文本文件中。

open "保存路径" for append as #print #1, text1 & vbcrlf & text2 & vbcrlf & text3 & vbcrlf & text4 & vbcrlf & text5 & vbcrlf;

close #

end sub

private sub command1 click（） Segment laugh OK 按钮，使用连续添加到文本 1 控件抓握宏。

dim i%

for i=0 to 4

输入文本数组。

next i

end sub

你想怎么添加它 不清楚是添加一行还是直接在原始逗号文件的行中添加数据 如果要在不更改数据的情况下添加它，则应将输出方法写入文件 将其更改为追加模式以写入 将“打开以显示输出为 1”更改为“打开以追加为 1”。

读出所有文件并将它们放入读写流中。

然后将新数据添加到流中，并将整个流写入文件。

这种东西直接给钱，说不定我会考虑一下，就给点子就行了。

只需将 dim itm 更改为 listitem 即可使 itm 变暗。

问题在于您的项目中同时存在该应用程序的版本。 只需让系统适应即可。

没什么问题。

这有点复杂，但是一旦与数据库建立了良好的连接，它就会简单得多。

"从[表1]中选择*。"，cn，1,1被修正"从[表1]中选择*。"、cn、1、3 仅使用 1,1 进行查询

使用 1 和 3 修改数据库

LZ：**好像没什么大问题，测试通过了。

private sub command1_click()'控制 2 将修改后的数据写回表中，如下所示：

for i = 0 to - 1 '（-1 删除相同的内容）。'（数据库已连接，数据源已设置）。

序数 = aid + 1'（aid 是 max 的值）。

部门") = "部门").value

工资月份 = 月份（

名字") = "名字").value

基本工资") = "基本工资").value"职位津贴") = "职位津贴").value"工资应该支付") = "工资应该支付").

value"预扣养老金") = "预扣养老金").value"预扣医疗保险") = "预扣医疗保险").value"扣缴失业救济金") = "扣缴失业救济金").

value"预扣公积金") = "预扣公积金").value"输入日期") =

杂项") = "杂项").value

通讯费") = "通讯费").value"高温费") = "高温费").value"实际工资") = "实际工资").

value"实际发行总量") = "实际发行总量").value'相反，只写入从查询中得出的第一条数据，并且只输入 1 条数据，就好像循环不起作用一样。 沮丧。

next i

end sub

添加 if 来确定 eof，如果它不在表的末尾，则向下移动一条记录。

如果最后退出循环。

这个要求是用普通的SQL语句来写，而不是按照编程的思路来写。 编写后，以编程方式交付。

首先将其插入排序中。

按顺序试用。