They just can't get into .NET
-
[:@] Because I'm the lead who gets to review code like this. How come with most VB programmers, the first year of experience just repeats.
<font size="2"></font><font color="#0000ff" size="2">
[code language="vb"]
<font color="#0000ff" size="2">For</font><font size="2"> </font><font color="#0000ff" size="2">Each</font><font size="2"> col </font><font color="#0000ff" size="2">In</font><font size="2"> checkDs.Tables(0).Columns
</font><font color="#0000ff" size="2">Select</font><font size="2"> </font><font color="#0000ff" size="2">Case</font><font size="2"> imprt
</font><font color="#0000ff" size="2">Case</font><font size="2"> 1
</font><font color="#0000ff" size="2">If</font><font size="2"> UCase(col.ColumnName) = UCase("Promo") </font><font color="#0000ff" size="2">AndAlso</font><font size="2"> ChkRestCols("Src_ID", "TeamStats", "ReferredBy", checkDs) </font><font color="#0000ff" size="2">Then
</font><font size="2">ChkExcelFile = </font><font color="#0000ff" size="2">True
</font><font size="2"></font><font color="#0000ff" size="2">Exit</font><font size="2"> </font><font color="#0000ff" size="2">Function
</font><font size="2"></font><font color="#0000ff" size="2">End</font><font size="2"> </font><font color="#0000ff" size="2">If
</font><font size="2"></font><font color="#0000ff" size="2">Case</font><font size="2"> 2
</font><font color="#0000ff" size="2">If</font><font size="2"> UCase(col.ColumnName) = UCase("Src_id") </font><font color="#0000ff" size="2">AndAlso</font><font size="2"> ChkRestCols("Promo", "TeamStats", "ReferredBy", checkDs) </font><font color="#0000ff" size="2">Then
</font><font size="2">ChkExcelFile = </font><font color="#0000ff" size="2">True
</font><font size="2"></font><font color="#0000ff" size="2">Exit</font><font size="2"> </font><font color="#0000ff" size="2">Function
</font><font size="2"></font><font color="#0000ff" size="2">End</font><font size="2"> </font><font color="#0000ff" size="2">If
</font><font size="2"></font><font color="#0000ff" size="2">Case</font><font size="2"> 3
</font><font color="#0000ff" size="2">If</font><font size="2"> UCase(col.ColumnName) = UCase("TeamStats") </font><font color="#0000ff" size="2">AndAlso</font><font size="2"> ChkRestCols("Promo", "", "ReferredBy", checkDs) </font><font color="#0000ff" size="2">Then
</font><font size="2">ChkExcelFile = </font><font color="#0000ff" size="2">True
</font><font size="2"></font><font color="#0000ff" size="2">Exit</font><font size="2"> </font><font color="#0000ff" size="2">Function
</font><font size="2"></font><font color="#0000ff" size="2">End</font><font size="2"> </font><font color="#0000ff" size="2">If
</font><font size="2"></font><font color="#0000ff" size="2">Case</font><font size="2"> 4
</font><font color="#0000ff" size="2">If</font><font size="2"> UCase(col.ColumnName) = UCase("ReferredBy") </font><font color="#0000ff" size="2">AndAlso</font><font size="2"> ChkRestCols("Promo", "TeamStats", "", checkDs) </font><font color="#0000ff" size="2">Then
</font><font size="2">ChkExcelFile = </font><font color="#0000ff" size="2">True
</font><font size="2"></font><font color="#0000ff" size="2">Exit</font><font size="2"> </font><font color="#0000ff" size="2">Function
</font><font size="2"></font><font color="#0000ff" size="2">End</font><font size="2"> </font><font color="#0000ff" size="2">If
</font><font size="2"></font><font color="#0000ff" size="2">End</font><font size="2"> </font><font color="#0000ff" size="2">Select
</font><font size="2"></font><font color="#0000ff" size="2">Next</font>
[/code]</font><font color="#0000ff" size="2">
</font>
-
Indeed I do!
-
And you didn't wait for 4000 days, or 4k days? Heathen
-
I guess we'll just never know what disco metric will be used.
-
I was wondering why this topic wasn't marked as New.
-
-
We need to wait for 4096 days.