标题：成批录入问题

1楼

15666282205 发表于：2024/8/6 9:07:00

老师，我用下面的代码实现了选择多个单元格成批录入，我想实现多个单元格成批自由录入，用键盘录入复杂的数字，请您指点。

'----------------------------------批量填充-----------------------

Dim t As Table = Tables("当月工资核算表")

For i As Integer = t.TopRow To t.BottomRow

For j As Integer = t.LeftCol To t.RightCol

If t.Rows(i).IsNull(t.Cols(j).Name) Then

t.Value(i,j) = "1"

'Else

'msgbox(i & "-" & j & "已经有值")

End If

2楼

有点蓝 发表于：2024/8/6 9:58:00

表格KeyDownEdit事件，录入完毕按回车

If e.KeyCode = Keys.Enter Then

Dim t As Table = e.Table

Output.Show(t.BottomRow)

For i As Integer = t.TopRow To t.BottomRow

For j As Integer = t.LeftCol To t.RightCol

If t.Rows(i).IsNull(t.Cols(j).Name) Then

t.Value(i, j) = e.text

'Else

'msgbox(i & "-" & j & "已经有值")

End If

3楼

15666282205 发表于：2024/10/10 7:46:00

老师，清空后录入可以

[此贴子已经被作者于2024/10/10 8:00:24编辑过]

4楼

15666282205 发表于：2024/10/10 7:50:00

老师，需要事先把内容清空才行，能不能不清空也能修改录入呢？

5楼

有点蓝 发表于：2024/10/10 8:55:00

把判断空值的代码去掉即可

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