项目初始化.Click
Dim Result As DialogResult
Result = MessageBox.Show("系统初始化将删除所有数据,继续吗?", "提示",MessageBoxButtons.YesNo)
If Result = DialogResult.Yes Then
DataTables("业务").DataRows.clear()
DataTables("出售").DataRows.clear()
DataTables("库存").DataRows.clear()
DataTables("设置").DataRows.clear()
RibbonTabs("民通电脑库存管理")("商品管理")("期初建库").Enabled = True
RibbonTabs("民通电脑库存管理")("商品管理")("商品采购").Enabled = False
RibbonTabs("民通电脑库存管理")("商品管理")("商品出售").Enabled = False
RibbonTabs("民通电脑库存管理")("商品管理")("盘点库存").Enabled = False
Dim w As Row=Tables("使用单位").Current
w("可用")=0
MessageBox.Show("系统初始化完成!")
End If
请问下在项目初始化过程中为什么要加上下述代码:
Dim w As Row=Tables("使用单位").Current
w("可用")=0