疯狂的石头陈

摘要： 1:删除空白行 For Each row As DataGridViewRow In Me.dgvBloodSugarInfo.Rows Dim isEmpty = True For Each cell As DataGridViewCell In row.Cells If cell.ColumnIndex > 0 And cell.Value IsNot Nothing Then isEmpty = False Exit For ... 阅读全文

摘要： Dim RptTable As New DataTable RptTable.Columns.Add("機台號碼") RptTable.Columns.Add("模號") RptTable.Columns.Add("模數") RptTable.Columns.Add("料別") RptTable.Columns.Add("生產數") RptTable.Columns.Add("訂單號碼") RptTable.Columns.Add("生產者") RptTa 阅读全文