ObjMobile.Format_TeamSummaryHeading_BUI(oword) Text = Dset.Tables(0).Rows(a)(1).ToString 'Dim oRange As Object = oword.Selection.Range Write_Cache(oword, WdColor.wdColorOrange, Text)
ObjMobile.Format_TeamSummaryHeading_BUI(oword) Text = ds.Tables(0).Rows(m)(1).ToString() & ": (Jobs Completed: " & IIf(closd.ToString.Trim.Length = 1, "0" & closd.ToString(), closd.ToString) & ", Jobs in Progress: " & IIf(open.ToString.Trim.Length = 1, "0" & open.ToString(), open.ToString) & ")" & vbCrLf Write_Word(oword, WdColor.wdColorLightBlue, Text, False)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)