主题：如何给”截止日期“字段赋值？

 导入后循环每一行赋值

Dim Val As Date = Date.Today
If InputValue(Val, "筛选","请输入导入数据的截至日期:") Then
    Output.Show(Val)
End If
Dim idx As Integer = Tables("储蓄积分").rows.count
 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls;*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    Dim book As new XLS.Book(dlg.FileName)
    mg.SourceTableName = book.Sheets(0).Name & "$"
    mg.DataTableName = "储蓄积分"
    mg.Format = "Excel"
    mg.Merge()
End If

for i as integer = idx to  Tables("储蓄积分”).rows.count - 1
 Tables("储蓄积分”).rows(i)("截止日期") = val
next

1、没有这种语法，不能直接用year

DataTables("储蓄积分").DeleteFor(" 截至日期.year=VAL.year ")

看看 http://www.foxtable.com/help/topics/2720.htm

2、

For Each dr As DataRow In DataTables("储蓄积分").DataRows
    dr("截至日期") = VAL
Next

1、

Dim  y As  Integer = val.year
Dim  dt1 As  New  Date(y,  1,  1)
Dim  dt2 As Date = dt1.AddYears(1)
Dim  Filter As  String =  "截至日期 >= #"  &  dt1  &  "# And 截至日期 < #"  &  dt2  &  "#"
DataTables("储蓄积分").DeleteFor(Filter)

2、看1，得到filter后，这样写

For Each dr As DataRow In DataTables("储蓄积分").Select(Filter)
    dr("截至日期") = VAL
Next

回复12楼，参考

设置成短日期

http://jingyan.baidu.com/article/647f0115925aee7f2148a8b5.html